home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / egg / egg-keymap.el.z / egg-keymap.el
Encoding:
Text File  |  1998-05-21  |  4.2 KB  |  118 lines
  1. ;; Usefull key binding for Sun Function keys 
  2. ;; Coded by Yutaka Ishikawa at ETL (yisikawa@etl.junet)
  3.  
  4. ;; This file is part of Egg on Mule (Multilingual Environment)
  5.  
  6. ;; Egg is free software; you can redistribute it and/or modify
  7. ;; it under the terms of the GNU General Public License as published by
  8. ;; the Free Software Foundation; either version 2, or (at your option)
  9. ;; any later version.
  10.  
  11. ;; Egg is distributed in the hope that it will be useful,
  12. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;; GNU General Public License for more details.
  15.  
  16. ;; You should have received a copy of the GNU General Public License
  17. ;; along with Mule; see the file COPYING.  If not, write to
  18. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. ;;; 92.4.16  modified for Mule Ver.0.9.3 by K.Handa <handa@etl.go.jp>
  21.  
  22. ;;
  23. ;; Table of Function key codes:
  24. ;;
  25. ;;;        x11term        xterm
  26. ;;;
  27. ;;; XK_F1:    [f1]        "\e[11~"
  28. ;;; XK_F2:    [f2]        "\e[12~"
  29. ;;; XK_F3:    [f3]        "\e[13~"
  30. ;;; XK_F4:    [f4]        "\e[14~"
  31. ;;; XK_F5:    [f5]        "\e[15~"
  32. ;;; XK_F6:    [f5]        "\e[17~"
  33. ;;; XK_F7:    [f7]        "\e[18~"
  34. ;;; XK_F8:    [f8]        "\e[19~"
  35. ;;; XK_F9:    [f9]        "\e[20~"
  36. ;;;
  37. ;;; XK_F10:    [f10]        "\e[21~"
  38. ;;; XK_F11:    [f11]        "\e[23~"
  39. ;;; XK_F12:    [f12]        "\e[24~"
  40. ;;; XK_F13:    [f13]        "\e[25~"
  41. ;;; XK_F14:    [f14]        "\e[26~"
  42. ;;; XK_F15:    [f15]        "\e[28~"
  43. ;;; XK_Help:    [help]        "\e[28~"
  44. ;;; XK_F16:    [f16]        "\e[29~"
  45. ;;; XK_Menu:    ???        "\e[29~"
  46. ;;; XK_F17:    [f17]        "\e[31~"
  47. ;;; XK_F18:    [f18]        "\e[32~"
  48. ;;; XK_F19:    [f19]        "\e[33~"
  49. ;;; XK_F20:    [f20]        "\e[34~"
  50. ;;;    
  51. ;;; XK_Find :    [find]        "\e[1~"
  52. ;;; XK_Insert:    [insert]    "\e[2~"
  53. ;;; XK_Delete:    [delete]    "\e[3~"
  54. ;;; XK_Select:    ???        "\e[4~"
  55. ;;; XK_Prior:    [prior]        "\e[5~"
  56. ;;; XK_Next:    [next]        "\e[6~"
  57. ;;;
  58. ;;; XK_Left:    [left]        "\eOC"(XK_R12)
  59. ;;; XK_Right:    [right]        "\eOD"(XK_R10)
  60. ;;; XK_Up:    [up]        "\eOA"(XK_R8)
  61. ;;; XK_Down:    [down]        "\eOB"(XK_R10)
  62. ;;;
  63.  
  64. ;;;
  65. ;;; Key bindings for X11 terminals(x11term)
  66. ;;;
  67.  
  68. (define-key global-map [f1] 'set-buffer-file-coding-system)
  69. (define-key global-map [f2] 'edit-dict-item)
  70. (define-key global-map [f3] 'jis-code-input)
  71. (define-key global-map [f4] 'toroku-region)
  72. (define-key global-map [f5] 'zenkaku-region)
  73. (define-key global-map [f6] 'hankaku-region)
  74. (define-key global-map [f7] 'katakana-region)
  75. (define-key global-map [f8] 'hiragana-region)
  76. (define-key global-map [f9] 'henkan-region)
  77.  
  78. (define-key global-map [f11] 'insert-buffer)
  79. (define-key global-map [f12] 'insert-file)
  80. (define-key global-map [f13] 'eval-region)
  81. (define-key global-map [f14] 'eval-current-buffer)
  82. (define-key global-map [f15] 'enlarge-window)
  83. (define-key global-map [f16] 'shrink-window)
  84. (define-key global-map [f17] 'revert-buffer)
  85. (define-key global-map [f18] 'revert-buffer)
  86. (define-key global-map [f19] 'beginning-of-buffer)
  87. (define-key global-map [f20] 'end-of-buffer)
  88.  
  89. ;;;
  90. ;;; Key bindings for non X11 terminal([kx]term)
  91. ;;;
  92.  
  93. (defvar sun-fkeymap (make-keymap))
  94. (fset 'sun-fprefix sun-fkeymap)
  95.  
  96. (define-key global-map "\e[" 'sun-fprefix)
  97. (define-key sun-fkeymap "["   'backward-paragraph) ; old "\e[" assignment
  98. (define-key sun-fkeymap "11~" 'set-buffer-file-coding-system)    ; F1 92.4.16 by K.Handa
  99. (define-key sun-fkeymap "12~" 'edit-dict-item)            ; F2
  100. (define-key sun-fkeymap "13~" 'jis-code-input)       ; F3
  101. (define-key sun-fkeymap "14~" 'toroku-region)        ; F4
  102. (define-key sun-fkeymap "15~" 'zenkaku-region)        ; F5
  103. (define-key sun-fkeymap "17~" 'hankaku-region)        ; F6
  104. (define-key sun-fkeymap "18~" 'katakana-region)        ; F7
  105. (define-key sun-fkeymap "19~" 'hiragana-region)        ; F8
  106. (define-key sun-fkeymap "20~" 'henkan-region)        ; F9
  107.  
  108. (define-key sun-fkeymap "23~" 'insert-buffer)        ; F11 or         L1
  109. (define-key sun-fkeymap "24~" 'insert-file)        ; F12 or         L2
  110. (define-key sun-fkeymap "25~" 'eval-region)        ; F13 or         L3
  111. (define-key sun-fkeymap "26~" 'eval-current-buffer)    ; F14 or         L4
  112. (define-key sun-fkeymap "28~" 'enlarge-window)        ; F15 or Help or L5
  113. (define-key sun-fkeymap "29~" 'shrink-window)        ; F16 or Menu or L6
  114. (define-key sun-fkeymap "31~" 'revert-buffer)        ; F17 or         L7
  115. (define-key sun-fkeymap "32~" 'revert-buffer)        ; F18 or         L8
  116. (define-key sun-fkeymap "33~" 'beginning-of-buffer)    ; F19 or         L9
  117. (define-key sun-fkeymap "34~" 'end-of-buffer)        ; F20 or         L10
  118.